home *** CD-ROM | disk | FTP | other *** search
/ Publication 17 / Publication_17_19xx_Civitas_de_Side_B.d64 / bejahfisch v2 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  874b  |  34 lines
  1. 1 printchr$(8):poke53281,.:poke53280,.
  2. 2 print"[147]bejahfisch by jtr, improved by zeitgeist"
  3. 3 forg=1to100:poke56295,6:poke2023,int(rnd(1)*25)+1:nextg
  4. 10 print"[147]"
  5. 11 a$=" [157] [157] [157] [157] [157] [157] [157] [157] [157] "
  6. 12 forg=1to22
  7. 13 poke211,g-1:poke214,1:sys58732:printa$:poke214,1:poke214,1:sys58732
  8. 14 q=1-q
  9. 15 ifq=1thengosub100:goto17
  10. 16 gosub200
  11. 17 fora=1to8:printtab(g)a$(a):next
  12. 18 fora=1to100:nexta,g
  13. 19 forz=0to24step2:poke781,z:sys59903:next:forz=23to0step-2:poke781,z:sys59903
  14. 20 next:forg=1to500:next
  15. 21 print"[147]":poke53281,6:poke53280,14:print"[154]r3ady.":sys42115
  16. 100 a$(1)="      ]      "
  17. 110 a$(2)="     ]]]       ja"
  18. 120 a$(3)="]  ]]]]]]]   "
  19. 130 a$(4)=" ]]]]]]]]o]] ja"
  20. 140 a$(5)=" ]]]]]]]]]]  "
  21. 150 a$(6)="] ]]]]]]]    "
  22. 160 a$(7)="     ]]      "
  23. 170 a$(8)="     ]       "
  24. 180 return
  25. 200 a$(1)="      ]         ja"
  26. 210 a$(2)="     ]]]     "
  27. 220 a$(3)="]  ]]]]]]]    ja"
  28. 230 a$(4)=" ]]]]]]]]-]] "
  29. 240 a$(5)=" ]]]]]]]]]]  "
  30. 250 a$(6)="] ]]]]]]]    "
  31. 260 a$(7)="     ]]      "
  32. 270 a$(8)="     ]       "
  33. 280 return
  34.